program
	int x;
	
	x:=-2; 
	while x<10 do 	
		        write A[x]; 	
		        write B[x];
	x:=x+1; 
	od
	write x;
end

